MacFormat España 24/MacFormat n. 24 (Spain)/MacFormat 24.bin/Demos/Scrutiny Demo/ScruTiny Demo/ScruTiny Demo.dxr/00001.ls

Text File | 1996-03-11 | 1.7 KB | 66 lines

global kIntroMovie, kStartMovie, vPlayingFromHardDisk, gOrigColorDepth, gMovieF, gTopLevelF, gHideFinder, gMainFeature

on hInitGlobals
  set vPlayingFromHardDisk to 0
  set gTopLevelF to the pathName
  setAt(the searchPath, 1, EMPTY)
  set kIntroMovie to EMPTY
end

on initFinderHider
  set gHideFinder to FinderHider(mnew)
  if objectp(gHideFinder) then
    if gHideFinder(mSetBorderColor, 255) then
      set errNum to gHideFinder(mGetErrorNumber)
      put gHideFinder(mGetErrorText, errNum)
    end if
    if gHideFinder(mShowBorder, 1) then
      set errNum to gHideFinder(mGetErrorNumber)
      put gHideFinder(mGetErrorText, errNum)
    end if
    if gHideFinder(mShowBorder, 1) then
      set errNum to gHideFinder(mGetErrorNumber)
      put gHideFinder(mGetErrorText, errNum)
    end if
    if gHideFinder(mUpdateBorder) then
      set errNum to gHideFinder(mGetErrorNumber)
      put gHideFinder(mGetErrorText, errNum)
    end if
  end if
end

on startMovie
  if the quickTimePresent then
    hInitGlobals()
    set the searchCurrentFolder to 0
    cursor(200)
    set gOrigColorDepth to the colorDepth
    set lForceColorDepth to 8
    if lForceColorDepth then
      if the colorDepth <> lForceColorDepth then
        set the colorDepth to lForceColorDepth
      end if
    end if
    set the centerStage to 1
  else
    set str to QUOTE & "QuickTime" & QUOTE & " is not installed. Please refer to the instructions"
    set str to str && "to find out how to install QuickTime."
    alert(str)
    quit()
  end if
end

on doMainFeature
  global gMainFeature
  if the machineType < 256 then
    set gMainFeature to kIntroMovie & "ScruTiny Mac P"
  else
    set gMainFeature to kIntroMovie & "SCRUTIP.DIR"
  end if
  go(1, gMainFeature)
end

on stopMovie
  cursor(-1)
end